Top 10k strings from Soft Spectrum - Issue 06 (1985)(Grupo de Trabajo Software)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   4 e=Vo*t+a*t*t/2
   3 Vf=Vo+a*t:
   3 ;"e=";e;u$(5
   3 ;"a=";a;u$(3
   2 a=(Vf-Vo)/t:
   2 Vo=Vf-a*t:
   2 ;a$;a$;a$;" ";
   2 ;"Vo=";Vo;u$(1
   2 ;"Vf=";Vf;u$(2
   2 ;"Para t=";t2;u$(4
   2 ;"Para t=";t1;u$(4
   2 ;"DOS SOLUCIONES:"
   2 ,)=" m/s.":
   2 ,)=" cm/s.":
   2 *a*e))/-a:
   2 (A*E)+"Y="+
   2  1985 BY J.L.T. XV.
   1 t=(Vf-Vo)/a:
   1 b=b+(b$(x+i,y+7
   1 Z(I)=Y(I):
   1 Z(I)=Y(I)-MIN:
   1 Z(I)=X(I):
   1 Z(I)=X(I)-MIN:
   1 Y=(C*D-F*A)/(D*B-A*E):
   1 Y=(A*I+B)*170
   1 Y(I)=Z(I)*170
   1 X=(X3-X2*Y)/X1:
   1 X1+"X"+S$+
   1 X(I)=Z(I)*250
   1 X(I),Y(I):
   1 Vo=(e-a*t*t/2
   1 Vo2=Vf-a*t2:
   1 Vo1=Vf-a*t1:
   1 Vf2=Vo+a*t2:
   1 Vf1=Vo+a*t1:
   1 V;" VARIABLES"
   1 V*D;" DATOS EN TOTAL"
   1 SOFTSPECTRUM N.6
   1 S=S+A(N,J)
   1 Reduccion 
   1 Raices    4
   1 RCYX=RCYX/(NP*DY2)
   1 RCYX=RCYX+(A*X(I)+B-EY)*(A*X(I)+B-EY):
   1 RCXY=RCXY/(NP*DX2)
   1 RCXY=RCXY+(AA*Y(I)+BB-EX)*(AA*Y(I)+BB-EX):
   1 R(J)=A(N,J)*2
   1 PROGRAMA                     
   1 PINTAR PORCENTAJES
   1 PINTAR DIAGRAMA
   1 Matrices  
   1 M.J.C. & F.A.P.
   1 J.L.T. XV.
   1 I,J;"M.U.A.":
   1 I$="SEGUNDA"
   1 I$="PRIMERA":
   1 Graficos  
   1 Fisica    
   1 EY=EY+Y(I):
   1 EXY=EXY/NP
   1 EXY=EXY+X(I)*Y(I):
   1 EX=EX+X(I):
   1 Diagramas O
   1 DY2=DY2/NP
   1 DY2=DY2+(Y(I)-EY)*(Y(I)-EY):
   1 DX2=DX2/NP
   1 DX2=DX2+(X(I)-EX)*(X(I)-EX):
   1 DIAGRAMA DE SECTORES
   1 D;" DATOS POR DIMENSION"
   1 CC=(EXY-EX*EY)/(DX2*DY2)^.5
   1 BB=-EY*AA+EX
   1 BASE DE DATOS
   1 B=-EX*A+EY
   1 B=(A1*A5*A9)+(A4*A8*A3)+(A2*A6*A7)-(A3*A5*A7)-(A2*A4*A9)-(A6*A8*A1)
   1 B9=((A1*A5)-(A4*A2))
   1 B7=((A4*A8)-(A7*A5))
   1 B5=((A1*A9)-(A7*A3))
   1 B3=((A2*A6)-(A5*A3))
   1 B1=((A5*A9)-(A8*A6))
   1 Ajuste    
   1 AA=(EXY-EX*EY)/DY2:
   1 A=(EXY-EX*EY)/DX2:
   1 A$="     ":
   1 A$(I,Z)=B$(Z
   1 <DIAGRAMA DE SECTORES>
   1 ;a,aa,b,bb:
   1 ;a$;a$;a$;" ":
   1 ;a$;a$;a$;" "
   1 ;a$;a$;"    "
   1 ;A$;A$;A$;" ":
   1 ;A$(N,Z);:
   1 ;A$(I,Z);:
   1 ;"t=";t;u$(4
   1 ;"_______"
   1 ;"[3] IMPRESORA "
   1 ;"[2] GRABAR    "
   1 ;"[1] EMPEZAR   "
   1 ;"Y=";Y(I):
   1 ;"X=";X(I):
   1 ;"Vo=";Vo2;u$(1
   1 ;"Vo=";Vo1;u$(1
   1 ;"Vf=";Vf2;u$(2
   1 ;"Vf=";Vf1;u$(2
   1 ;"VARIABLE:";:
   1 ;"VAR(Y)=";DY2;
   1 ;"VAR(X)=";DX2;
   1 ;"Sistema de unidades:",,,,," 1   m.k.s.",,,," 2   c.g.s.":
   1 ;"SUSTITUIMOS EL VALOR DE Y EN LA",I$;" ECUACION.":
   1 ;"SUMAMOS LAS DOS ECUACIONES.":
   1 ;"SOLUCION":
   1 ;"SECTOR";
   1 ;"Raiz en X=";x3:
   1 ;"RECTA DE REGRESION (Y SOBRE X):","Y=";A;"X";S$;
   1 ;"RAZON DE CORELACION=  ",RCYX
   1 ;"RAICES":
   1 ;"Pulse comandos"
   1 ;"PULSA UNA TECLA PARA CONTINUAR":
   1 ;"PULSA TECLA PARA GRAFICA.",,,"LA GRAFICA PERMANECERA EN PANTA-LLA HASTA QUE PULSES TECLA."
   1 ;"PULSA PLAY";
   1 ;"PULSA PLAY EN EL CASSETTE"
   1 ;"PULSA PLAY EN EL CASETTE":
   1 ;"PULSA O PARA OTRO",,,,,,,"PULSA F PARA FINALIZAR"
   1 ;"PROXIMO PROGRAMA":
   1 ;"PORCENT."
   1 ;"POR LA PRIMERA.":
   1 ;"PARA EL SIGUIENTE PROGRAMA";,"  PULSA PLAY EN EL CASSETTE.":
   1 ;"PARA EL SIGUIENTE PROGRAMA";
   1 ;"OTRA VEZ?"
   1 ;"O:OTRA   P:OTRO PROGRAMA"
   1 ;"O:Buscar otra raiz.",:
   1 ;"O OTRO    ";
   1 ;"No hay cambio de signo.":
   1 ;"NUMERO DE PUNTOS:",NP:
   1 ;"MULTIPLICAMOS ";A;" POR";
   1 ;"MATRICES (3X3)";
   1 ;"LA SEGUNDA ECUACION Y ";D;
   1 ;"INTRODUCE UN DATO ";A(I,J)
   1 ;"Hay cambio de signo.",:
   1 ;"FISICA":
   1 ;"FIN DEL PROBLEMA.    ","PULSA O PARA HACER OTRO.","      F PARA FINALIZAR."  
   1 ;"F FIN     ";
   1 ;"Estas de acuerdo con la defini- cion de la funcion (S/N).":
   1 ;"ESTE PROGRAMA RESUELVE SISTEMAS","DE DOS ECUACIONES CON DOS INCOG-";"NITAS  POR EL  METODO DE  REDU-","CCION.",,"EL PROGRAMA PRIMERO TE PIDE LOS","DATOS Y A CONTINUACION  TE  RE-","SUELVE EL SISTEMA PASO A PASO."
   1 ;"EN MEMORIA";
   1 ;"E(Y)=";EY;
   1 ;"E(X)=";EX;
   1 ;"DESPEJAMOS LA Y.":
   1 ;"DESPEJAMOS LA X.":
   1 ;"DATOS DE LA VARIABLE:";:
   1 ;"DATO N. ";J;": ";A(I,J)
   1 ;"Cuales son las incognitas?":
   1 ;"Conecte cassette y pulse tecla":
   1 ;"COV(X,Y)=";EXY-EX*EY;
   1 ;"COEFICIENTE DE REGRESION= ",CRYX;
   1 ;"COEFICIENTE DE CORRELACION=",CC;
   1 ;"CODIGOS"
   1 ;"CAMBIAMOS DE SIGNO A LA SEGUN-","DA ECUACION.":
   1 ;"CALCULO DE DETERMINANTES";
   1 ;"B BORRA   ";
   1 ;"AX+BY=C",,,,"DX+EY=F";
   1 ;"AJUSTE",,,,," Este es un prograna que te per-mite ajustar una nube de puntos por una recta."
   1 ;"ABCDEFGHIJKLMNOPQRSTU"
   1 ;"======== =====";
   1 ;"======= == =============";
   1 ;"5-8 MUEVE ";
   1 ;"2 BLANCO  ";
   1 ;"1...Vo",,"  2...Vf",,"  3...a",,"  4...t",,"  5...e"
   1 ;"1 NEGRO   ";
   1 ;"--------------------------------":
   1 ;" PULSE PLAY EN EL CASETE ":
   1 ;" PULSA PLAY EN EL CASETE":
   1 ;" GRAFICOS DEFINIDOS POR USUARIO "
   1 ;" GRAFICOS DEFINIDOS  
   1 ;" GRAFICOS ";
   1 ;" Entre que valores buscamos ?.":
   1 ;" COMANDOS ";
   1 ;"  PULSA TECLA PARA COMENZAR"
   1 ;"  PROGRAMA";
   1 ;"  Los diagramas de sectores son graficas de gran utilidad para  cualquier tipo de datos."'"  La representacion se realiza  en tantos por ciento (%) por lo que el dato mayor es el que     ocupa mayor espacio del circulo."
   1 ;"  F:FINALIZAR  O:OTRO PROBLEMA"
   1 ;"   PULSA TECLA PARA CONTINUAR   "
   1 ;"   PULSA TECLA PARA COMENZAR"
   1 ;"    Pulse [A-U] o [SPACE]       "
   1 ;"    PULSA TECLA PARA COMENZAR."
   1 ;"           M.U.A.  ",,,"Este programa te permite resol- ver problemas de movimiento uni-formemente acelerdo.  ","Las unidades han de estar todas en el mismo sistema (m.k.s.  o  c.g.s.)."
   1 ;"            RAICES.",,,"ESTE ES UN PROGRAMA QUE TE PER- MITE CALCULAR LAS RAICES DE LAS FUNCIONES QUE TU DESEES.","PRIMERO TIENES QUE ENCONTRAR DOSPUNTOS EN LOS QUE LA FUNCION CAMBIE DE SIGNO, LO QUE TE ASEGURA,SI LA FUNCION ES CONTINUA, QUE  ENTRE ESOS DOS  PUNTOS HAY  UNA UNA RAIZ.",,
   1 ;"                                                   "'"AL SER EL DETERMINANTE IGUAL A 0"'"NO ME ES POSIBLE HACERLO":
   1 :HAY QUE DIVIDIR TODA"'" LA MATRIZ POR ";B
   1 1985 BY J.L.T. XV.
   1 -z)="1")*2
   1 ,-MINY*170
   1 ,)=" m/s2.":
   1 ,)=" cm/s2.":
   1 ,)=" cm.":
   1 *e/(Vo+Vf):
   1 *A*D)+"X"+S$+
   1 **** COPY ****
   1 *(e-Vo*t)/(t*t):
   1 *(Vf*t-e)/(t*t):
   1 )*((A4*A9)-(A7*A6)))
   1 )*((A2*A9)-(A8*A3)))
   1 )*((A1*A8)-(A7*A2)))
   1 )*((A1*A6)-(A4*A3)))
   1 (x3-x2)<.00001
   1 (D*B-A*E)+"Y="+
   1 (D*B)+"Y="+
   1 (D*A)+"X"+S$+
   1 (C*D-F*A);A$:
   1 (A*D)+"X"+S$+
   1 ((A(N,J)*100
   1 '''"   Este programa te simplifica  enormemente la realizacion de   graficos para tus propios pro-  gramas."''"   Con el puedes editar todos   los graficos que necesites, sa- ber sus codigos y grabarlos en  casete."
   1 ''"NUMERO DE DATOS EXCESIVO, DEFINEUNAS NUEVAS DIMENSIONES":
   1 '"  La lectura del diagrama se    realiza desde la flecha, en el  sentido contrario a las agujas  del reloj."
   1 '"  Incluido en el programa va unabase de datos que te permitira  almacenarlos en el cassette."
   1 "pulse ENTER";
   1 "VAS A UTILIZAR DATOS ALMACENADOSEN CASSETTE (S/N) ";R$
   1 "UNA ADVERTENCIA,  LAS POTENCIAS DE X NO LAS INTRODUZCAS COMO X^3SINO COMO X*X*X."
   1 "UN MOMENTO, SON TRES GRABACIONESEN TOTAL"
   1 "TITULO DE LOS DATOS ";T$
   1 "QUIERES INTRODUCIR OTROS DATOS  (S/N) ";R$
   1 "QUIERES GRABAR LOS DATOS EN EL  CASSETTE (S/N) ";R$
   1 "PULSA PLAY EN EL CASSETTE"
   1 "OTRO DIAGRAMA (S/N) ";R$
   1 "Nombre ";z$:
   1 "NOMBRE DE LA VARIABLE (maximo   10 caracteres) ";B$
   1 "N. DE LA VARIABLE A REPRESENTAR  ";N
   1 "LE HAGO LA INVERSA"'"DE LA MISMA MATRIZ?"
   1 "LA MATRIZ PEDIDA ES:"
   1 "Introduce la funcion en x.",a$
   1 "INTRODUZCA LA MATRIZ (POR FILAS)"
   1 "F:Fin del programa.":
   1 "El programa, ademas de la repre-sentacion grafica, da una serie de datos de interes estadistico sobre la nube de puntos."
   1 "EL DETERMINANTE PEDIDO ES:" 
   1 "E:Empezar metodo secante.",:
   1 "CUANTOS DATOS POR VARIABLE      (
   1 "CUANTAS DIMENSIONES O VARIABLES VAS A UTILIZAR ";V
   1 "C:Cambiar valores iniciles.":
   1 "C:Cambiar la funcion.":
   1  PULSA UNA TECLA PARA COMENZAR
   1  J.SUAREZ ":